home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / e / nsm / examples / _.e next >
Text File  |  1999-06-14  |  779b  |  44 lines
  1. -> .e
  2.  
  3. /*
  4.  
  5. .c by Kjetil S. Matheussen 10.12.98.
  6. .e by Claude Heiland-Allen 1999.05.16
  7.  
  8. */
  9.  
  10. OPT OSVERSION=37
  11.  
  12. MODULE 'other/nsm', 'other/nsm_extra'
  13.  
  14. RAISE "MEM" IF String() = NIL
  15.  
  16. PROC main() HANDLE
  17.  
  18.     DEF oss, rdargs = NIL, args : PTR TO LONG
  19.  
  20.     IF (oss := nsm_getoctabase()) = NIL THEN Raise("nsm")
  21.  
  22.     -> ReadArgs() is much easier and nicer
  23.     args := NEW [0]
  24.     IF (rdargs := ReadArgs('', args, NIL)) = NIL THEN Raise("ARGS")
  25.  
  26.  
  27.     nsm_updateeditor(oss)
  28.  
  29. EXCEPT DO
  30.  
  31.     IF rdargs THEN FreeArgs(rdargs)
  32.  
  33.     SELECT exception
  34.     CASE "ARGS"; WriteF('Error: bad args\n')
  35.     CASE "MEM";  WriteF('Error: no mem\n')
  36.     CASE "nsm";  WriteF('Error: no nsm\n')
  37.     ENDSELECT
  38.  
  39. ENDPROC IF exception THEN 5 ELSE 0
  40.  
  41. PROC hexval(str) IS Val(StringF(String(16),'$\s',str))
  42.  
  43. version: CHAR '$VER:  1.1 (1999.05.16)', 0
  44.